/ Club KidSoft Volume 2 #3 / CKSMACV23.BIN / DEMOS / CyberTown Demo / LLdrDemo / LLdrDemo.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 97 43 4c | 00 00 00 08 00 00 00 20 |......CL|....... |
|00000010| 00 07 00 00 00 00 00 00 | 17 6c 00 00 17 86 00 00 |........|.l......|
|00000020| 17 ae 00 00 17 ae 00 00 | 17 b0 00 00 17 b0 00 00 |........|........|
|00000030| 17 b0 6f 6e 20 72 61 6e | 64 6f 6d 4c 69 73 74 52 |..on ran|domListR|
|00000040| 65 73 65 74 0d 20 20 67 | 6c 6f 62 61 6c 20 72 61 |eset.  g|lobal ra|
|00000050| 6e 64 6f 6d 4c 69 73 74 | 0d 20 20 70 75 74 20 22 |ndomList|.  put "|
|00000060| 46 61 6c 6c 41 20 46 61 | 6c 6c 42 20 57 69 6e 41 |FallA Fa|llB WinA|
|00000070| 20 57 69 6e 42 20 53 75 | 6d 41 20 53 75 6d 42 20 | WinB Su|mA SumB |
|00000080| 52 61 69 6e 41 20 52 61 | 69 6e 42 22 20 69 6e 74 |RainA Ra|inB" int|
|00000090| 6f 20 72 61 6e 64 6f 6d | 4c 69 73 74 0d 65 6e 64 |o random|List.end|
|000000a0| 20 72 61 6e 64 6f 6d 4c | 69 73 74 52 65 73 65 74 | randomL|istReset|
|000000b0| 0d 0d 6f 6e 20 72 61 6e | 64 6f 6d 4c 69 73 74 4e |..on ran|domListN|
|000000c0| 65 78 74 0d 20 20 67 6c | 6f 62 61 6c 20 72 61 6e |ext.  gl|obal ran|
|000000d0| 64 6f 6d 4c 69 73 74 0d | 20 20 70 75 74 20 74 68 |domList.|  put th|
|000000e0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 77 6f 72 64 |e number| of word|
|000000f0| 73 20 69 6e 20 72 61 6e | 64 6f 6d 4c 69 73 74 20 |s in ran|domList |
|00000100| 69 6e 74 6f 20 6e 0d 20 | 20 69 66 20 6e 20 3d 20 |into n. | if n = |
|00000110| 30 20 74 68 65 6e 0d 20 | 20 20 20 72 61 6e 64 6f |0 then. |   rando|
|00000120| 6d 4c 69 73 74 52 65 73 | 65 74 0d 20 20 20 20 70 |mListRes|et.    p|
|00000130| 75 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ut the n|umber of|
|00000140| 20 77 6f 72 64 73 20 69 | 6e 20 72 61 6e 64 6f 6d | words i|n random|
|00000150| 4c 69 73 74 20 69 6e 74 | 6f 20 6e 0d 20 20 65 6e |List int|o n.  en|
|00000160| 64 20 69 66 0d 20 20 73 | 65 74 20 72 20 3d 20 72 |d if.  s|et r = r|
|00000170| 61 6e 64 6f 6d 28 6e 29 | 0d 20 20 73 65 74 20 69 |andom(n)|.  set i|
|00000180| 20 3d 20 77 6f 72 64 20 | 72 20 6f 66 20 72 61 6e | = word |r of ran|
|00000190| 64 6f 6d 4c 69 73 74 0d | 20 20 64 65 6c 65 74 65 |domList.|  delete|
|000001a0| 20 77 6f 72 64 20 72 20 | 6f 66 20 72 61 6e 64 6f | word r |of rando|
|000001b0| 6d 4c 69 73 74 0d 20 20 | 72 65 74 75 72 6e 20 69 |mList.  |return i|
|000001c0| 0d 65 6e 64 20 72 61 6e | 64 6f 6d 4c 69 73 74 4e |.end ran|domListN|
|000001d0| 65 78 74 0d 0d 4f 6e 20 | 42 75 64 53 70 6f 74 74 |ext..On |BudSpott|
|000001e0| 69 6e 67 20 44 65 73 74 | 46 72 61 6d 65 2c 42 75 |ing Dest|Frame,Bu|
|000001f0| 64 54 79 70 65 0d 20 20 | 47 6c 6f 62 61 6c 20 4d |dType.  |Global M|
|00000200| 41 58 53 50 4f 54 54 49 | 4e 47 53 2c 4e 75 6d 62 |AXSPOTTI|NGS,Numb|
|00000210| 65 72 4f 66 53 70 6f 74 | 74 69 6e 67 73 2c 43 68 |erOfSpot|tings,Ch|
|00000220| 61 6e 63 65 53 70 6f 74 | 74 69 6e 67 2c 53 63 72 |anceSpot|ting,Scr|
|00000230| 65 65 6e 4e 75 6d 2c 54 | 68 69 73 42 75 64 0d 20 |eenNum,T|hisBud. |
|00000240| 20 69 66 20 4f 62 6a 65 | 63 74 50 28 4d 41 58 53 | if Obje|ctP(MAXS|
|00000250| 50 4f 54 54 49 4e 47 53 | 29 20 3d 20 46 41 4c 53 |POTTINGS|) = FALS|
|00000260| 45 20 74 68 65 6e 20 65 | 78 69 74 0d 20 20 69 66 |E then e|xit.  if|
|00000270| 20 4e 75 6d 62 65 72 4f | 66 53 70 6f 74 74 69 6e | NumberO|fSpottin|
|00000280| 67 73 28 6d 47 65 74 2c | 53 63 72 65 65 6e 4e 75 |gs(mGet,|ScreenNu|
|00000290| 6d 29 20 3e 3d 20 4d 41 | 58 53 50 4f 54 54 49 4e |m) >= MA|XSPOTTIN|
|000002a0| 47 53 28 6d 47 65 74 2c | 53 63 72 65 65 6e 4e 75 |GS(mGet,|ScreenNu|
|000002b0| 6d 29 20 74 68 65 6e 20 | 52 65 74 75 72 6e 20 46 |m) then |Return F|
|000002c0| 41 4c 53 45 0d 20 20 69 | 66 20 54 68 69 73 42 75 |ALSE.  i|f ThisBu|
|000002d0| 64 28 6d 47 65 74 2c 42 | 75 64 54 79 70 65 29 20 |d(mGet,B|udType) |
|000002e0| 3d 20 54 52 55 45 20 74 | 68 65 6e 20 52 65 74 75 |= TRUE t|hen Retu|
|000002f0| 72 6e 20 46 41 4c 53 45 | 0d 20 20 54 68 69 73 42 |rn FALSE|.  ThisB|
|00000300| 75 64 28 6d 50 75 74 2c | 42 75 64 54 79 70 65 2c |ud(mPut,|BudType,|
|00000310| 54 52 55 45 29 0d 20 20 | 4e 75 6d 62 65 72 4f 66 |TRUE).  |NumberOf|
|00000320| 53 70 6f 74 74 69 6e 67 | 73 28 6d 50 75 74 2c 53 |Spotting|s(mPut,S|
|00000330| 63 72 65 65 6e 4e 75 6d | 2c 28 4e 75 6d 62 65 72 |creenNum|,(Number|
|00000340| 4f 66 53 70 6f 74 74 69 | 6e 67 73 28 6d 47 65 74 |OfSpotti|ngs(mGet|
|00000350| 2c 53 63 72 65 65 6e 4e | 75 6d 29 20 2b 20 31 29 |,ScreenN|um) + 1)|
|00000360| 29 0d 20 20 70 6c 61 79 | 20 66 72 61 6d 65 20 64 |).  play| frame d|
|00000370| 65 73 74 46 72 61 6d 65 | 0d 20 20 69 66 20 43 68 |estFrame|.  if Ch|
|00000380| 65 63 6b 41 6c 6c 42 75 | 64 73 28 29 20 3d 20 54 |eckAllBu|ds() = T|
|00000390| 52 55 45 20 74 68 65 6e | 20 65 6e 64 69 6e 67 67 |RUE then| endingg|
|000003a0| 61 6d 65 0d 20 20 52 65 | 74 75 72 6e 20 54 52 55 |ame.  Re|turn TRU|
|000003b0| 45 0d 65 6e 64 20 42 75 | 64 53 70 6f 74 74 69 6e |E.end Bu|dSpottin|
|000003c0| 67 0d 0d 6f 6e 20 73 74 | 61 72 74 4d 6f 76 69 65 |g..on st|artMovie|
|000003d0| 0d 20 20 72 61 6e 64 6f | 6d 4c 69 73 74 52 65 73 |.  rando|mListRes|
|000003e0| 65 74 0d 20 20 77 68 65 | 6e 20 6d 6f 75 73 65 44 |et.  whe|n mouseD|
|000003f0| 6f 77 6e 20 74 68 65 6e | 20 73 74 6f 70 53 6f 6e |own then| stopSon|
|00000400| 67 0d 65 6e 64 20 73 74 | 61 72 74 4d 6f 76 69 65 |g.end st|artMovie|
|00000410| 0d 0d 6f 6e 20 73 74 6f | 70 53 6f 6e 67 0d 20 20 |..on sto|pSong.  |
|00000420| 73 6f 75 6e 64 20 73 74 | 6f 70 20 31 0d 20 20 77 |sound st|op 1.  w|
|00000430| 68 65 6e 20 6d 6f 75 73 | 65 44 6f 77 6e 20 74 68 |hen mous|eDown th|
|00000440| 65 6e 20 6e 6f 74 68 69 | 6e 67 0d 65 6e 64 20 73 |en nothi|ng.end s|
|00000450| 74 6f 70 53 6f 6e 67 0d | 0d 6f 6e 20 65 6e 64 69 |topSong.|.on endi|
|00000460| 6e 67 67 61 6d 65 0d 20 | 20 72 65 70 65 61 74 20 |nggame. | repeat |
|00000470| 77 69 74 68 20 63 68 61 | 6e 6e 65 6c 20 3d 20 31 |with cha|nnel = 1|
|00000480| 20 74 6f 20 32 34 0d 20 | 20 20 20 70 75 70 70 65 | to 24. |   puppe|
|00000490| 74 53 70 72 69 74 65 20 | 63 68 61 6e 6e 65 6c 2c |tSprite |channel,|
|000004a0| 20 30 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d | 0.  end| repeat.|
|000004b0| 20 20 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 45 |  go to |frame "E|
|000004c0| 6e 64 47 61 6d 65 22 0d | 65 6e 64 20 65 6e 64 69 |ndGame".|end endi|
|000004d0| 6e 67 67 61 6d 65 0d 0d | 0d 4f 6e 20 43 68 65 63 |nggame..|.On Chec|
|000004e0| 6b 41 6c 6c 42 75 64 73 | 0d 20 20 47 6c 6f 62 61 |kAllBuds|.  Globa|
|000004f0| 6c 20 4d 41 58 53 50 4f | 54 54 49 4e 47 53 2c 4e |l MAXSPO|TTINGS,N|
|00000500| 75 6d 62 65 72 4f 66 53 | 70 6f 74 74 69 6e 67 73 |umberOfS|pottings|
|00000510| 2c 43 68 61 6e 63 65 53 | 70 6f 74 74 69 6e 67 2c |,ChanceS|potting,|
|00000520| 53 63 72 65 65 6e 4e 75 | 6d 2c 54 68 69 73 42 75 |ScreenNu|m,ThisBu|
|00000530| 64 0d 20 20 72 65 70 65 | 61 74 20 77 69 74 68 20 |d.  repe|at with |
|00000540| 69 6e 64 65 78 20 3d 20 | 31 20 74 6f 20 38 0d 20 |index = |1 to 8. |
|00000550| 20 20 20 70 75 74 20 4e | 75 6d 62 65 72 4f 66 53 |   put N|umberOfS|
|00000560| 70 6f 74 74 69 6e 67 73 | 28 6d 47 65 74 2c 49 6e |pottings|(mGet,In|
|00000570| 64 65 78 29 0d 20 20 20 | 20 70 75 74 20 4d 41 58 |dex).   | put MAX|
|00000580| 53 50 4f 54 54 49 4e 47 | 53 28 6d 47 65 74 2c 49 |SPOTTING|S(mGet,I|
|00000590| 6e 64 65 78 29 0d 20 20 | 20 20 69 66 20 4e 75 6d |ndex).  |  if Num|
|000005a0| 62 65 72 4f 66 53 70 6f | 74 74 69 6e 67 73 28 6d |berOfSpo|ttings(m|
|000005b0| 47 65 74 2c 49 6e 64 65 | 78 29 20 3c 3e 20 4d 41 |Get,Inde|x) <> MA|
|000005c0| 58 53 50 4f 54 54 49 4e | 47 53 28 6d 47 65 74 2c |XSPOTTIN|GS(mGet,|
|000005d0| 49 6e 64 65 78 29 20 74 | 68 65 6e 20 52 65 74 75 |Index) t|hen Retu|
|000005e0| 72 6e 20 46 41 4c 53 45 | 0d 20 20 65 6e 64 20 72 |rn FALSE|.  end r|
|000005f0| 65 70 65 61 74 0d 20 20 | 72 65 74 75 72 6e 20 54 |epeat.  |return T|
|00000600| 52 55 45 0d 65 6e 64 20 | 43 68 65 63 6b 41 6c 6c |RUE.end |CheckAll|
|00000610| 62 75 64 73 0d 0d 4f 6e | 20 45 6e 64 47 61 6d 65 |buds..On| EndGame|
|00000620| 54 65 73 74 0d 20 20 47 | 6c 6f 62 61 6c 20 53 63 |Test.  G|lobal Sc|
|00000630| 72 65 65 6e 4e 75 6d 2c | 4d 41 58 53 50 4f 54 54 |reenNum,|MAXSPOTT|
|00000640| 49 4e 47 53 2c 4e 75 6d | 62 65 72 6f 66 53 70 6f |INGS,Num|berofSpo|
|00000650| 74 74 69 6e 67 73 0d 20 | 20 52 65 70 65 61 74 20 |ttings. | Repeat |
|00000660| 77 69 74 68 20 69 6e 64 | 65 78 20 3d 20 31 20 74 |with ind|ex = 1 t|
|00000670| 6f 20 38 0d 20 20 20 20 | 69 66 20 69 6e 64 65 78 |o 8.    |if index|
|00000680| 20 3c 3e 20 53 63 72 65 | 65 6e 4e 75 6d 20 74 68 | <> Scre|enNum th|
|00000690| 65 6e 0d 20 20 20 20 20 | 20 4e 75 6d 62 65 72 6f |en.     | Numbero|
|000006a0| 66 53 70 6f 74 74 69 6e | 67 73 28 6d 50 75 74 2c |fSpottin|gs(mPut,|
|000006b0| 69 6e 64 65 78 2c 4d 41 | 58 53 50 4f 54 54 49 4e |index,MA|XSPOTTIN|
|000006c0| 47 53 28 6d 47 65 74 2c | 69 6e 64 65 78 29 29 0d |GS(mGet,|index)).|
|000006d0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 65 6e 64 |    end |if.  end|
|000006e0| 20 72 65 70 65 61 74 0d | 65 6e 64 20 45 6e 64 47 | repeat.|end EndG|
|000006f0| 61 6d 65 54 65 73 74 0d | 0d 0d 4f 6e 20 53 65 74 |ameTest.|..On Set|
|00000700| 62 75 64 73 0d 20 20 47 | 6c 6f 62 61 6c 20 4f 76 |buds.  G|lobal Ov|
|00000710| 65 72 61 6c 6c 42 75 64 | 2c 42 75 64 53 74 61 6d |erallBud|,BudStam|
|00000720| 70 0d 20 20 70 75 74 20 | 32 31 20 69 6e 74 6f 20 |p.  put |21 into |
|00000730| 42 61 63 6b 47 72 6f 75 | 6e 64 0d 20 20 70 75 74 |BackGrou|nd.  put|
|00000740| 20 32 32 20 69 6e 74 6f | 20 42 75 64 53 74 61 6d | 22 into| BudStam|
|00000750| 70 0d 20 20 70 75 74 20 | 36 34 20 69 6e 74 6f 20 |p.  put |64 into |
|00000760| 56 53 65 67 0d 20 20 70 | 75 74 20 35 38 20 69 6e |VSeg.  p|ut 58 in|
|00000770| 74 6f 20 48 53 65 67 0d | 20 20 73 65 74 20 74 68 |to HSeg.|  set th|
|00000780| 65 20 70 75 70 70 65 74 | 20 6f 66 20 73 70 72 69 |e puppet| of spri|
|00000790| 74 65 20 42 75 64 53 74 | 61 6d 70 20 3d 20 54 52 |te BudSt|amp = TR|
|000007a0| 55 45 0d 20 20 53 65 74 | 20 74 68 65 20 74 72 61 |UE.  Set| the tra|
|000007b0| 69 6c 73 20 6f 66 20 73 | 70 72 69 74 65 20 42 75 |ils of s|prite Bu|
|000007c0| 64 53 74 61 6d 70 20 3d | 20 54 52 55 45 0d 20 20 |dStamp =| TRUE.  |
|000007d0| 53 65 74 20 74 68 65 20 | 73 74 72 65 74 63 68 20 |Set the |stretch |
|000007e0| 6f 66 20 73 70 72 69 74 | 65 20 42 75 64 53 74 61 |of sprit|e BudSta|
|000007f0| 6d 70 20 3d 20 46 41 4c | 53 45 0d 20 20 53 65 74 |mp = FAL|SE.  Set|
|00000800| 20 74 68 65 20 69 6e 6b | 20 6f 66 20 73 70 72 69 | the ink| of spri|
|00000810| 74 65 20 42 55 64 53 74 | 61 6d 70 20 3d 20 38 0d |te BUdSt|amp = 8.|
|00000820| 20 20 70 75 74 20 74 68 | 65 20 6c 65 66 74 20 6f |  put th|e left o|
|00000830| 66 20 73 70 72 69 74 65 | 20 42 61 63 6b 47 72 6f |f sprite| BackGro|
|00000840| 75 6e 64 20 2b 20 34 20 | 69 6e 74 6f 20 6c 65 66 |und + 4 |into lef|
|00000850| 74 4f 66 66 0d 20 20 70 | 75 74 20 74 68 65 20 74 |tOff.  p|ut the t|
|00000860| 6f 70 20 6f 66 20 73 70 | 72 69 74 65 20 42 61 63 |op of sp|rite Bac|
|00000870| 6b 47 72 6f 75 6e 64 20 | 2b 20 35 33 20 69 6e 74 |kGround |+ 53 int|
|00000880| 6f 20 54 6f 70 4f 66 66 | 0d 20 20 72 65 70 65 61 |o TopOff|.  repea|
|00000890| 74 20 77 69 74 68 20 69 | 6e 64 65 78 20 3d 20 32 |t with i|ndex = 2|
|000008a0| 20 74 6f 20 36 0d 20 20 | 20 20 70 75 74 20 69 6e | to 6.  |  put in|
|000008b0| 64 65 78 0d 20 20 20 20 | 70 75 74 20 4f 76 65 72 |dex.    |put Over|
|000008c0| 61 6c 6c 42 75 64 28 6d | 47 65 74 2c 69 6e 64 65 |allBud(m|Get,inde|
|000008d0| 78 29 20 69 6e 74 6f 20 | 42 75 64 74 79 70 65 73 |x) into |Budtypes|
|000008e0| 0d 20 20 20 20 53 65 74 | 20 74 68 65 20 4c 6f 63 |.    Set| the Loc|
|000008f0| 48 20 6f 66 20 73 70 72 | 69 74 65 20 42 75 64 53 |H of spr|ite BudS|
|00000900| 74 61 6d 70 20 3d 20 4c | 65 66 74 4f 66 66 20 2b |tamp = L|eftOff +|
|00000910| 20 28 48 53 65 67 2f 32 | 29 20 2b 20 28 28 49 6e | (HSeg/2|) + ((In|
|00000920| 64 65 78 20 2d 20 32 29 | 2a 48 53 65 67 29 0d 20 |dex - 2)|*HSeg). |
|00000930| 20 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |   repea|t with i|
|00000940| 6e 6e 65 72 20 3d 20 31 | 20 74 6f 20 33 0d 20 20 |nner = 1| to 3.  |
|00000950| 20 20 20 20 69 66 20 42 | 75 64 74 79 70 65 73 28 |    if B|udtypes(|
|00000960| 6d 47 65 74 2c 49 6e 6e | 65 72 29 20 3d 20 54 52 |mGet,Inn|er) = TR|
|00000970| 55 45 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |UE then.|        |
|00000980| 53 65 74 20 74 68 65 20 | 6c 6f 63 56 20 6f 66 20 |Set the |locV of |
|00000990| 73 70 72 69 74 65 20 42 | 75 64 53 74 61 6d 70 20 |sprite B|udStamp |
|000009a0| 3d 20 54 6f 70 4f 66 66 | 20 2b 20 28 56 53 65 67 |= TopOff| + (VSeg|
|000009b0| 2f 32 29 20 2b 20 28 28 | 69 6e 6e 65 72 20 2d 20 |/2) + ((|inner - |
|000009c0| 31 29 2a 56 53 65 67 29 | 0d 20 20 20 20 20 20 20 |1)*VSeg)|.       |
|000009d0| 20 53 65 74 20 74 68 65 | 20 63 61 73 74 4e 75 6d | Set the| castNum|
|000009e0| 20 6f 66 20 73 70 72 69 | 74 65 20 42 75 64 53 74 | of spri|te BudSt|
|000009f0| 61 6d 70 20 74 6f 20 28 | 28 74 68 65 20 6e 75 6d |amp to (|(the num|
|00000a00| 62 65 72 20 6f 66 20 63 | 61 73 74 20 22 42 75 64 |ber of c|ast "Bud|
|00000a10| 20 4f 6e 65 22 29 20 2b | 20 69 6e 6e 65 72 20 2d | One") +| inner -|
|00000a20| 20 31 29 20 0d 20 20 20 | 20 20 20 20 20 75 70 64 | 1) .   |     upd|
|00000a30| 61 74 65 53 74 61 67 65 | 0d 20 20 20 20 20 20 65 |ateStage|.      e|
|00000a40| 6e 64 20 69 66 0d 20 20 | 20 20 65 6e 64 20 72 65 |nd if.  |  end re|
|00000a50| 70 65 61 74 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |peat.  e|nd repea|
|00000a60| 74 0d 20 20 53 65 74 20 | 74 68 65 20 6c 6f 63 48 |t.  Set |the locH|
|00000a70| 20 6f 66 20 73 70 72 69 | 74 65 20 42 75 64 53 74 | of spri|te BudSt|
|00000a80| 61 6d 70 20 3d 20 2d 39 | 39 39 39 0d 20 20 53 65 |amp = -9|999.  Se|
|00000a90| 74 20 74 68 65 20 70 75 | 70 70 65 74 20 6f 66 20 |t the pu|ppet of |
|00000aa0| 73 70 72 69 74 65 20 42 | 75 64 53 74 61 6d 70 20 |sprite B|udStamp |
|00000ab0| 3d 20 46 41 4c 53 45 0d | 65 6e 64 20 53 65 74 42 |= FALSE.|end SetB|
|00000ac0| 75 64 73 0d 0d 4f 6e 20 | 49 6e 69 74 32 0d 20 20 |uds..On |Init2.  |
|00000ad0| 47 6c 6f 62 61 6c 20 53 | 63 72 65 65 6e 4e 75 6d |Global S|creenNum|
|00000ae0| 2c 4f 76 65 72 61 6c 6c | 42 75 64 2c 54 68 69 73 |,Overall|Bud,This|
|00000af0| 42 75 64 0d 20 20 69 66 | 20 4f 62 6a 65 63 74 50 |Bud.  if| ObjectP|
|00000b00| 28 4f 76 65 72 61 6c 6c | 42 75 64 29 20 3d 20 46 |(Overall|Bud) = F|
|00000b10| 41 4c 53 45 20 74 68 65 | 6e 20 65 78 69 74 0d 20 |ALSE the|n exit. |
|00000b20| 20 70 75 74 20 36 20 69 | 6e 74 6f 20 53 63 72 65 | put 6 i|nto Scre|
|00000b30| 65 6e 4e 75 6d 0d 20 20 | 70 75 74 20 4f 76 65 72 |enNum.  |put Over|
|00000b40| 61 6c 6c 42 75 64 28 6d | 47 65 74 2c 53 63 72 65 |allBud(m|Get,Scre|
|00000b50| 65 6e 4e 75 6d 29 20 69 | 6e 74 6f 20 54 68 69 73 |enNum) i|nto This|
|00000b60| 42 75 64 0d 65 6e 64 20 | 49 6e 69 74 32 0d 0d 4f |Bud.end |Init2..O|
|00000b70| 6e 20 50 6c 61 79 52 61 | 6e 64 6f 6d 20 74 68 65 |n PlayRa|ndom the|
|00000b80| 6c 61 62 65 6c 2c 4e 0d | 20 20 70 6c 61 79 20 66 |label,N.|  play f|
|00000b90| 72 61 6d 65 20 77 6f 72 | 64 20 28 72 61 6e 64 6f |rame wor|d (rando|
|00000ba0| 6d 20 28 4e 29 29 20 6f | 66 20 74 68 65 6c 61 62 |m (N)) o|f thelab|
|00000bb0| 65 6c 0d 65 6e 64 20 70 | 6c 61 79 52 61 6e 64 6f |el.end p|layRando|
|00000bc0| 6d 0d 0d 6f 6e 20 47 6f | 52 61 6e 64 6f 6d 20 74 |m..on Go|Random t|
|00000bd0| 68 65 4e 61 6d 2c 20 6e | 75 6d 0d 20 20 67 6f 20 |heNam, n|um.  go |
|00000be0| 74 6f 20 77 6f 72 64 20 | 28 72 61 6e 64 6f 6d 20 |to word |(random |
|00000bf0| 28 6e 75 6d 29 29 20 6f | 66 20 74 68 65 6e 61 6d |(num)) o|f thenam|
|00000c00| 0d 20 20 70 75 74 20 74 | 68 65 20 66 72 61 6d 65 |.  put t|he frame|
|00000c10| 0d 65 6e 64 20 47 6f 52 | 61 6e 64 6f 6d 0d 0d 0d |.end GoR|andom...|
|00000c20| 4f 6e 20 44 6f 4e 6f 74 | 68 69 6e 67 0d 65 6e 64 |On DoNot|hing.end|
|00000c30| 20 44 6f 4e 6f 74 68 69 | 6e 67 0d 0d 6f 6e 20 41 | DoNothi|ng..on A|
|00000c40| 6c 6c 42 75 64 73 0d 20 | 20 47 6c 6f 62 61 6c 20 |llBuds. | Global |
|00000c50| 54 68 69 73 42 75 64 2c | 4e 75 6d 62 65 72 4f 66 |ThisBud,|NumberOf|
|00000c60| 53 70 6f 74 74 69 6e 67 | 73 2c 4d 41 58 53 50 4f |Spotting|s,MAXSPO|
|00000c70| 54 54 49 4e 47 53 2c 53 | 63 72 65 65 6e 4e 75 6d |TTINGS,S|creenNum|
|00000c80| 2c 4f 76 65 72 61 6c 6c | 42 75 64 0d 20 20 52 65 |,Overall|Bud.  Re|
|00000c90| 70 65 61 74 20 77 69 74 | 68 20 69 6e 64 65 78 20 |peat wit|h index |
|00000ca0| 3d 20 31 20 74 6f 20 38 | 0d 20 20 20 20 2d 2d 70 |= 1 to 8|.    --p|
|00000cb0| 75 74 20 22 54 6f 74 61 | 6c 20 6e 75 6d 62 65 72 |ut "Tota|l number|
|00000cc0| 20 6f 66 20 73 70 6f 74 | 74 69 6e 67 73 20 66 6f | of spot|tings fo|
|00000cd0| 72 20 73 65 63 74 69 6f | 6e 20 4e 6f 2e 20 22 20 |r sectio|n No. " |
|00000ce0| 26 20 69 6e 64 65 78 0d | 20 20 20 20 2d 2d 70 75 |& index.|    --pu|
|00000cf0| 74 20 4d 41 58 53 50 4f | 54 54 49 4e 47 53 28 6d |t MAXSPO|TTINGS(m|
|00000d00| 47 65 74 2c 49 6e 64 65 | 78 29 0d 20 20 20 20 2d |Get,Inde|x).    -|
|00000d10| 2d 70 75 74 20 22 4e 75 | 6d 62 65 72 20 6f 66 20 |-put "Nu|mber of |
|00000d20| 62 75 64 73 20 73 70 6f | 74 74 65 64 20 69 6e 20 |buds spo|tted in |
|00000d30| 53 65 63 74 69 6f 6e 20 | 4e 6f 2e 20 22 20 26 20 |Section |No. " & |
|00000d40| 69 6e 64 65 78 0d 20 20 | 20 20 2d 2d 70 75 74 20 |index.  |  --put |
|00000d50| 4e 75 6d 62 65 72 4f 66 | 53 70 6f 74 74 69 6e 67 |NumberOf|Spotting|
|00000d60| 73 28 6d 67 65 74 2c 49 | 6e 64 65 78 29 0d 20 20 |s(mget,I|ndex).  |
|00000d70| 20 20 2d 2d 70 75 74 20 | 22 42 75 64 20 54 79 70 |  --put |"Bud Typ|
|00000d80| 65 73 20 53 70 6f 74 74 | 65 64 22 0d 20 20 20 20 |es Spott|ed".    |
|00000d90| 2d 2d 70 75 74 20 22 52 | 61 76 65 22 0d 20 20 20 |--put "R|ave".   |
|00000da0| 20 70 75 74 20 4f 76 65 | 72 61 6c 6c 42 75 64 28 | put Ove|rallBud(|
|00000db0| 6d 47 65 74 2c 69 6e 64 | 65 78 29 20 69 6e 74 6f |mGet,ind|ex) into|
|00000dc0| 20 54 65 6d 70 4f 62 6a | 0d 20 20 20 20 69 66 20 | TempObj|.    if |
|00000dd0| 4f 62 6a 65 63 74 50 28 | 74 65 6d 70 4f 62 6a 29 |ObjectP(|tempObj)|
|00000de0| 20 3d 20 46 41 4c 53 45 | 20 74 68 65 6e 20 65 78 | = FALSE| then ex|
|00000df0| 69 74 0d 20 20 20 20 2d | 2d 70 75 74 20 54 65 6d |it.    -|-put Tem|
|00000e00| 70 4f 62 6a 28 6d 47 65 | 74 2c 31 29 0d 20 20 20 |pObj(mGe|t,1).   |
|00000e10| 20 2d 2d 70 75 74 20 22 | 52 6f 6d 22 0d 20 20 20 | --put "|Rom".   |
|00000e20| 20 2d 2d 70 75 74 20 54 | 65 6d 70 4f 62 6a 28 6d | --put T|empObj(m|
|00000e30| 47 65 74 2c 32 29 0d 20 | 20 20 20 2d 2d 70 75 74 |Get,2). |   --put|
|00000e40| 20 22 52 61 6e 74 22 0d | 20 20 20 20 2d 2d 70 75 | "Rant".|    --pu|
|00000e50| 74 20 54 65 6d 70 4f 62 | 6a 28 6d 47 65 74 2c 33 |t TempOb|j(mGet,3|
|00000e60| 29 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |).  end |repeat.e|
|00000e70| 6e 64 20 4f 56 65 72 61 | 6c 6c 42 75 64 73 0d 0d |nd OVera|llBuds..|
|00000e80| 0d 0d 4f 6e 20 77 65 61 | 74 68 65 72 0d 20 20 47 |..On wea|ther.  G|
|00000e90| 6c 6f 62 61 6c 20 54 68 | 65 51 54 69 6d 65 0d 20 |lobal Th|eQTime. |
|00000ea0| 20 50 75 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | Put the| name of|
|00000eb0| 20 63 61 73 74 20 28 74 | 68 65 20 63 61 73 74 4e | cast (t|he castN|
|00000ec0| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 35 29 20 |um of sp|rite 5) |
|00000ed0| 69 6e 74 6f 20 74 68 65 | 51 74 69 6d 65 20 0d 20 |into the|Qtime . |
|00000ee0| 20 50 75 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | Put the| name of|
|00000ef0| 20 63 61 73 74 20 28 74 | 68 65 20 63 61 73 74 4e | cast (t|he castN|
|00000f00| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 36 29 20 |um of sp|rite 6) |
|00000f10| 69 6e 74 6f 20 68 65 61 | 64 0d 20 20 50 75 74 20 |into hea|d.  Put |
|00000f20| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |the name| of cast|
|00000f30| 20 28 74 68 65 20 63 61 | 73 74 4e 75 6d 20 6f 66 | (the ca|stNum of|
|00000f40| 20 73 70 72 69 74 65 20 | 37 29 20 69 6e 74 6f 20 | sprite |7) into |
|00000f50| 68 61 6e 64 0d 20 20 50 | 75 74 20 74 68 65 20 6e |hand.  P|ut the n|
|00000f60| 61 6d 65 20 6f 66 20 63 | 61 73 74 20 28 74 68 65 |ame of c|ast (the|
|00000f70| 20 63 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | castNum| of spri|
|00000f80| 74 65 20 38 29 20 69 6e | 74 6f 20 4c 65 67 0d 20 |te 8) in|to Leg. |
|00000f90| 20 50 75 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | Put the| name of|
|00000fa0| 20 63 61 73 74 20 28 74 | 68 65 20 63 61 73 74 4e | cast (t|he castN|
|00000fb0| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 39 29 20 |um of sp|rite 9) |
|00000fc0| 69 6e 74 6f 20 42 6f 64 | 79 0d 20 20 69 66 20 68 |into Bod|y.  if h|
|00000fd0| 65 61 64 20 63 6f 6e 74 | 61 69 6e 73 20 22 46 61 |ead cont|ains "Fa|
|00000fe0| 6c 6c 48 61 74 22 20 61 | 6e 64 20 68 61 6e 64 20 |llHat" a|nd hand |
|00000ff0| 63 6f 6e 74 61 69 6e 73 | 20 22 46 61 6c 6c 48 61 |contains| "FallHa|
|00001000| 6e 64 22 c2 0d 61 6e 64 | 20 20 6c 65 67 20 63 6f |nd"..and|  leg co|
|00001010| 6e 74 61 69 6e 73 20 22 | 46 61 6c 6c 53 68 6f 73 |ntains "|FallShos|
|00001020| 65 22 20 61 6e 64 20 20 | 62 6f 64 79 20 43 6f 6e |e" and  |body Con|
|00001030| 74 61 69 6e 73 20 22 66 | 61 6c 6c 53 68 69 72 74 |tains "f|allShirt|
|00001040| 22 20 74 68 65 6e 20 46 | 61 6c 6c 0d 20 20 65 6c |" then F|all.  el|
|00001050| 73 65 0d 20 20 20 20 69 | 66 20 68 65 61 64 20 63 |se.    i|f head c|
|00001060| 6f 6e 74 61 69 6e 73 20 | 22 72 61 69 6e 48 61 74 |ontains |"rainHat|
|00001070| 22 20 61 6e 64 20 68 61 | 6e 64 20 63 6f 6e 74 61 |" and ha|nd conta|
|00001080| 69 6e 73 20 22 72 61 69 | 6e 48 61 6e 64 22 c2 0d |ins "rai|nHand"..|
|00001090| 61 6e 64 20 20 6c 65 67 | 20 63 6f 6e 74 61 69 6e |and  leg| contain|
|000010a0| 73 20 22 72 61 69 6e 53 | 68 6f 73 65 22 20 61 6e |s "rainS|hose" an|
|000010b0| 64 20 20 62 6f 64 79 20 | 43 6f 6e 74 61 69 6e 73 |d  body |Contains|
|000010c0| 20 22 72 61 69 6e 53 68 | 69 72 74 22 20 74 68 65 | "rainSh|irt" the|
|000010d0| 6e 20 52 61 69 6e 0d 20 | 20 20 20 65 6c 73 65 0d |n Rain. |   else.|
|000010e0| 20 20 20 20 20 20 69 66 | 20 68 65 61 64 20 63 6f |      if| head co|
|000010f0| 6e 74 61 69 6e 73 20 22 | 53 75 6d 48 61 74 22 20 |ntains "|SumHat" |
|00001100| 61 6e 64 20 68 61 6e 64 | 20 63 6f 6e 74 61 69 6e |and hand| contain|
|00001110| 73 20 22 73 75 6d 48 61 | 6e 64 22 c2 0d 61 6e 64 |s "sumHa|nd"..and|
|00001120| 20 20 6c 65 67 20 63 6f | 6e 74 61 69 6e 73 20 22 |  leg co|ntains "|
|00001130| 73 75 6d 53 68 6f 73 65 | 22 20 61 6e 64 20 20 62 |sumShose|" and  b|
|00001140| 6f 64 79 20 43 6f 6e 74 | 61 69 6e 73 20 22 53 75 |ody Cont|ains "Su|
|00001150| 6d 53 68 69 72 74 22 20 | 74 68 65 6e 20 53 75 6d |mShirt" |then Sum|
|00001160| 6d 65 72 0d 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |mer.    |  else. |
|00001170| 20 20 20 20 20 20 20 69 | 66 20 68 65 61 64 20 63 |       i|f head c|
|00001180| 6f 6e 74 61 69 6e 73 20 | 22 57 69 6e 48 61 74 22 |ontains |"WinHat"|
|00001190| 20 61 6e 64 20 68 61 6e | 64 20 63 6f 6e 74 61 69 | and han|d contai|
|000011a0| 6e 73 20 22 57 69 6e 48 | 61 6e 64 22 c2 0d 61 6e |ns "WinH|and"..an|
|000011b0| 64 20 20 6c 65 67 20 63 | 6f 6e 74 61 69 6e 73 20 |d  leg c|ontains |
|000011c0| 22 57 69 6e 53 68 6f 73 | 65 22 20 61 6e 64 20 20 |"WinShos|e" and  |
|000011d0| 62 6f 64 79 20 43 6f 6e | 74 61 69 6e 73 20 22 57 |body Con|tains "W|
|000011e0| 69 6e 53 68 69 72 74 22 | 20 74 68 65 6e 20 57 69 |inShirt"| then Wi|
|000011f0| 6e 74 65 72 0d 20 20 20 | 20 20 20 65 6e 64 20 69 |nter.   |   end i|
|00001200| 66 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |f.    en|d if.  e|
|00001210| 6e 64 20 69 66 0d 65 6e | 64 20 77 65 61 74 68 65 |nd if.en|d weathe|
|00001220| 72 0d 0d 4f 6e 20 66 61 | 6c 6c 0d 20 20 47 6c 6f |r..On fa|ll.  Glo|
|00001230| 62 61 6c 20 54 68 65 51 | 54 69 6d 65 0d 20 20 49 |bal TheQ|Time.  I|
|00001240| 66 20 54 68 65 51 54 69 | 6d 65 20 43 6f 6e 74 61 |f TheQTi|me Conta|
|00001250| 69 6e 73 20 22 46 61 6c | 6c 41 22 20 74 68 65 6e |ins "Fal|lA" then|
|00001260| 20 50 6c 61 79 20 22 66 | 61 6c 6c 41 22 20 0d 20 | Play "f|allA" . |
|00001270| 20 65 6c 73 65 0d 20 20 | 20 20 49 66 20 54 68 65 | else.  |  If The|
|00001280| 51 54 69 6d 65 20 43 6f | 6e 74 61 69 6e 73 20 22 |QTime Co|ntains "|
|00001290| 46 61 6c 6c 42 22 20 74 | 68 65 6e 20 50 6c 61 79 |FallB" t|hen Play|
|000012a0| 20 22 66 61 6c 6c 42 22 | 0d 20 20 20 20 65 6c 73 | "fallB"|.    els|
|000012b0| 65 20 0d 20 20 20 20 20 | 20 6e 6f 74 68 69 6e 67 |e .     | nothing|
|000012c0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |.    end| if.  en|
|000012d0| 64 20 49 66 0d 65 6e 64 | 20 66 61 6c 6c 0d 0d 0d |d If.end| fall...|
|000012e0| 4f 6e 20 53 75 6d 6d 65 | 72 0d 20 20 47 6c 6f 62 |On Summe|r.  Glob|
|000012f0| 61 6c 20 54 68 65 51 54 | 69 6d 65 0d 20 20 49 66 |al TheQT|ime.  If|
|00001300| 20 54 68 65 51 74 69 6d | 65 20 43 6f 6e 74 61 69 | TheQtim|e Contai|
|00001310| 6e 73 20 22 53 75 6d 41 | 22 20 74 68 65 6e 20 50 |ns "SumA|" then P|
|00001320| 6c 61 79 20 22 53 75 6d | 6d 65 72 41 22 20 0d 20 |lay "Sum|merA" . |
|00001330| 20 65 6c 73 65 0d 20 20 | 20 20 69 66 20 20 54 68 | else.  |  if  Th|
|00001340| 65 51 74 69 6d 65 20 63 | 6f 6e 74 61 69 6e 73 20 |eQtime c|ontains |
|00001350| 22 53 75 6d 42 22 20 74 | 68 65 6e 20 50 6c 61 79 |"SumB" t|hen Play|
|00001360| 20 22 53 75 6d 6d 65 72 | 42 22 0d 20 20 20 20 65 | "Summer|B".    e|
|00001370| 6c 73 65 0d 20 20 20 20 | 20 20 4e 6f 74 68 69 6e |lse.    |  Nothin|
|00001380| 67 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |g.    en|d if.  e|
|00001390| 6e 64 20 49 66 0d 65 6e | 64 20 53 75 6d 6d 65 72 |nd If.en|d Summer|
|000013a0| 0d 0d 4f 6e 20 47 65 74 | 48 65 6c 70 0d 20 20 70 |..On Get|Help.  p|
|000013b0| 75 74 20 74 68 65 20 6c | 65 66 74 20 6f 66 20 73 |ut the l|eft of s|
|000013c0| 70 72 69 74 65 20 28 74 | 68 65 20 63 6c 69 63 6b |prite (t|he click|
|000013d0| 4f 6e 29 20 69 6e 74 6f | 20 74 68 65 4c 65 66 74 |On) into| theLeft|
|000013e0| 0d 20 20 69 66 20 74 68 | 65 20 6d 6f 75 73 65 48 |.  if th|e mouseH|
|000013f0| 20 3e 20 28 74 68 65 4c | 65 66 74 20 2b 20 36 37 | > (theL|eft + 67|
|00001400| 29 20 74 68 65 6e 20 0d | 20 20 20 20 53 65 74 20 |) then .|    Set |
|00001410| 74 68 65 20 70 75 70 70 | 65 74 20 6f 66 20 73 70 |the pupp|et of sp|
|00001420| 72 69 74 65 20 28 74 68 | 65 20 43 6c 69 63 6b 4f |rite (th|e ClickO|
|00001430| 6e 29 20 3d 20 66 61 6c | 73 65 0d 20 20 20 20 50 |n) = fal|se.    P|
|00001440| 6c 61 79 20 22 42 75 64 | 73 48 75 6e 74 65 64 22 |lay "Bud|sHunted"|
|00001450| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 53 65 74 20 |.  else.|    Set |
|00001460| 74 68 65 20 70 75 70 70 | 65 74 20 6f 66 20 73 70 |the pupp|et of sp|
|00001470| 72 69 74 65 20 28 74 68 | 65 20 43 6c 69 63 6b 4f |rite (th|e ClickO|
|00001480| 6e 29 20 3d 20 66 61 6c | 73 65 0d 20 20 20 20 70 |n) = fal|se.    p|
|00001490| 75 70 70 65 74 53 6f 75 | 6e 64 20 22 48 65 6c 70 |uppetSou|nd "Help|
|000014a0| 22 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 55 70 64 |".  end |if.  Upd|
|000014b0| 61 74 65 53 74 61 67 65 | 0d 20 20 72 65 70 65 61 |ateStage|.  repea|
|000014c0| 74 20 77 68 69 6c 65 20 | 74 68 65 20 53 6f 75 6e |t while |the Soun|
|000014d0| 64 42 75 73 79 20 6f 66 | 20 31 20 20 3d 20 74 72 |dBusy of| 1  = tr|
|000014e0| 75 65 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |ue.  end| repeat.|
|000014f0| 20 20 53 65 74 20 74 68 | 65 20 70 75 70 70 65 74 |  Set th|e puppet|
|00001500| 20 6f 66 20 73 70 72 69 | 74 65 20 28 74 68 65 20 | of spri|te (the |
|00001510| 43 6c 69 63 6b 4f 6e 29 | 20 3d 20 66 61 6c 73 65 |ClickOn)| = false|
|00001520| 0d 45 6e 64 20 47 65 74 | 48 65 6c 70 0d 0d 4f 6e |.End Get|Help..On|
|00001530| 20 52 61 69 6e 0d 20 20 | 47 6c 6f 62 61 6c 20 54 | Rain.  |Global T|
|00001540| 68 65 51 54 69 6d 65 0d | 20 20 49 66 20 54 68 65 |heQTime.|  If The|
|00001550| 51 54 69 6d 65 20 43 6f | 6e 74 61 69 6e 73 20 22 |QTime Co|ntains "|
|00001560| 52 61 69 6e 41 22 20 74 | 68 65 6e 20 70 6c 61 79 |RainA" t|hen play|
|00001570| 20 22 52 61 69 6e 41 22 | 0d 20 20 65 6c 73 65 0d | "RainA"|.  else.|
|00001580| 20 20 20 20 69 66 20 20 | 54 68 65 51 74 69 6d 65 |    if  |TheQtime|
|00001590| 20 63 6f 6e 74 61 69 6e | 73 20 22 52 61 69 6e 42 | contain|s "RainB|
|000015a0| 22 20 74 68 65 6e 20 50 | 6c 61 79 20 22 52 61 69 |" then P|lay "Rai|
|000015b0| 6e 42 22 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |nB".    |else.   |
|000015c0| 20 20 20 4e 6f 74 68 69 | 6e 67 0d 20 20 20 20 65 |   Nothi|ng.    e|
|000015d0| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 49 66 0d 65 |nd if.  |end If.e|
|000015e0| 6e 64 20 52 61 69 6e 0d | 0d 4f 6e 20 57 69 6e 74 |nd Rain.|.On Wint|
|000015f0| 65 72 0d 20 20 47 6c 6f | 62 61 6c 20 54 68 65 51 |er.  Glo|bal TheQ|
|00001600| 54 69 6d 65 0d 20 20 49 | 66 20 54 68 65 51 54 69 |Time.  I|f TheQTi|
|00001610| 6d 65 20 43 6f 6e 74 61 | 69 6e 73 20 22 57 69 6e |me Conta|ins "Win|
|00001620| 41 22 20 74 68 65 6e 20 | 50 6c 61 79 20 22 57 69 |A" then |Play "Wi|
|00001630| 6e 74 65 72 41 22 20 0d | 20 20 65 6c 73 65 0d 20 |nterA" .|  else. |
|00001640| 20 20 20 69 66 20 74 68 | 65 51 74 69 6d 65 20 43 |   if th|eQtime C|
|00001650| 6f 6e 74 61 69 6e 73 20 | 22 57 69 6e 42 22 20 74 |ontains |"WinB" t|
|00001660| 68 65 6e 20 50 6c 61 79 | 20 22 57 69 6e 74 65 72 |hen Play| "Winter|
|00001670| 42 22 0d 20 20 20 20 45 | 6c 73 65 20 0d 20 20 20 |B".    E|lse .   |
|00001680| 20 20 20 6e 6f 74 68 69 | 6e 67 0d 20 20 20 20 65 |   nothi|ng.    e|
|00001690| 6e 64 20 49 66 20 0d 20 | 20 45 6e 64 20 69 66 0d |nd If . | End if.|
|000016a0| 65 6e 64 20 57 69 6e 74 | 65 72 0d 0d 4f 6e 20 43 |end Wint|er..On C|
|000016b0| 68 65 63 6b 57 65 61 74 | 68 65 72 0d 20 20 72 65 |heckWeat|her.  re|
|000016c0| 70 65 61 74 20 77 69 74 | 68 20 74 68 65 4e 75 6d |peat wit|h theNum|
|000016d0| 20 3d 20 30 20 74 6f 20 | 33 0d 20 20 20 20 70 75 | = 0 to |3.    pu|
|000016e0| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |t the na|me of ca|
|000016f0| 73 74 20 28 45 33 31 20 | 2b 20 38 2a 74 68 65 4e |st (E31 |+ 8*theN|
|00001700| 75 6d 29 20 69 6e 74 6f | 20 77 6f 72 64 20 28 31 |um) into| word (1|
|00001710| 20 2b 20 74 68 65 4e 75 | 6d 29 20 6f 66 20 66 69 | + theNu|m) of fi|
|00001720| 65 6c 64 20 22 63 68 65 | 63 6b 63 6c 6f 22 0d 20 |eld "che|ckclo". |
|00001730| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 | end rep|eat.end |
|00001740| 63 68 65 63 6b 57 65 61 | 74 68 65 72 0d 0d 4f 6e |checkWea|ther..On|
|00001750| 20 44 72 65 73 73 47 75 | 73 0d 20 20 67 6c 6f 62 | DressGu|s.  glob|
|00001760| 61 6c 20 54 68 65 51 74 | 69 6d 65 0d 20 20 70 75 |al TheQt|ime.  pu|
|00001770| 74 20 72 61 6e 64 6f 6d | 4c 69 73 74 4e 65 78 74 |t random|ListNext|
|00001780| 28 29 20 69 6e 74 6f 20 | 54 68 65 51 74 69 6d 65 |() into |TheQtime|
|00001790| 0d 45 6e 64 20 44 72 65 | 73 73 47 75 73 0d 19 45 |.End Dre|ssGus..E|
|000017a0| 6c 76 69 73 20 2d 20 52 | 6f 63 6b 20 61 6e 64 20 |lvis - R|ock and |
|000017b0| 52 6f 6c 6c 20 49 6e 63 | 27 54 65 72 72 79 20 52 |Roll Inc|'Terry R|
|000017c0| 2e 20 53 63 68 75 73 73 | 6c 65 72 20 2d 20 67 72 |. Schuss|ler - gr|
|000017d0| 61 79 20 6d 61 74 74 65 | 72 20 64 65 73 69 67 6e |ay matte|r design|
|000017e0| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+